
#
# fp <- "/Users/dave/Documents/Data/Strava/Bethan/activities/1074457693.gpx"
#
#
#
# sf <- gpx_sf( system.file("./gpx/city_trail.gpx", package = "gpx") )
#
# mapdeck() %>%
#   add_sf(
#     data = sf
#     , stroke_width = 10
#   )
#
#
# sf <- sf::st_read( system.file("./shape/storms_xyzm.shp", package = "sf"))
